home *** CD-ROM | disk | FTP | other *** search
/ CD World Haziran 1997 / CD World Haziran 1997.iso / Explorer Yardimcilari / PiXCL Tools / Statuswi.px_ / Statuswi.px
Encoding:
PiXCL source  |  1996-06-08  |  2.4 KB  |  111 lines
  1. Initialize:
  2.     WinGetActive(Win$)
  3.     UseCoordinates(PIXEL)
  4.     {GoSub Draw_Blue_Shade}
  5.     UseBackGround(TRANSPARENT,192,192,192)
  6.     DrawBackGround
  7.     WaitInput(100)  {let NT and 95 catch up}
  8.     InfoMenu(REMOVE)
  9.     SetMenu()
  10.     WinLocate(Win$,200,10,600,220,Res)
  11.     Title$ = "Status Window Example"
  12.     WinTitle(Win$, Title$)
  13.  
  14.  
  15.  
  16.     SetMenu("Exit!",Leave,
  17.         ENDPOPUP,
  18.         "Status Window",IGNORE,
  19.         "Enable StatusTOP",EnableTOP,
  20.         "Enable StatusBTM",EnableBTM,
  21.         "Enable Status Parts",EnableParts,
  22.         "Disable Status",Disable,
  23.         "Write Parts",WriteParts,
  24.         "Test",DoAll,
  25.         SEPARATOR,
  26.         "Background",Bkg,
  27.         ENDPOPUP,
  28.         "Str Replace",Replace,
  29.         ENDPOPUP)
  30.     
  31. Wait_for_Input:
  32.     WaitInput()
  33.  
  34.  
  35. Leave:
  36.     End
  37.  
  38. Replace:
  39.     DrawBackGround
  40.     UseFont("Arial",11,21,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  41.     String0$ = "g:\images\abcfbnd1.bmp"
  42.     String1$ = "bmp"
  43.     String2$ = "jpg"
  44.     DrawText(10,10,String0$)
  45.     StrRepl(String0$,String1$,String2$,Res)
  46.     If Res= 1 Then DrawText(10,35,String0$)
  47.     Goto Wait_for_Input
  48.  
  49.  
  50. DoAll:
  51.     GoSub Sub_1
  52.     Goto Wait_for_Input
  53.  
  54. EnableTOP:
  55.     StatusWindow(ENABLE,TOP,1,200,0,0,0)
  56.     Goto Wait_for_Input
  57.  
  58. EnableBTM:
  59.     StatusWindow(ENABLE,BOTTOM,0,100,200,0,0)
  60.     Goto Wait_for_Input
  61.  
  62. EnableParts:
  63.     StatusWindow(ENABLE,BOTTOM,4,160,210,270,-1)
  64.     Goto Wait_for_Input
  65.  
  66. WriteParts:
  67.     GoSub Sub_1
  68.     Goto Wait_for_Input
  69.  
  70.  
  71. Disable:
  72.     StatusWindow(DISABLE,BOTTOM,0,0,0,0,0)
  73.     Goto Wait_for_Input
  74.  
  75.  
  76. Bkg:
  77.     WinGetClientRect("",cx1,cy1,cx2,cy2)
  78.     InvertRectangle(cx1,cy1,cx2,cy2)
  79.     Goto Wait_for_Input
  80.  
  81. Sub_1:
  82.     StatusWindow(ENABLE,BOTTOM,4,160,210,270,-1)
  83. Sub_2:
  84.     DrawBackGround
  85.     WinGetClientRect("",cx1,cy1,cx2,cy2)
  86.     cx2 = cx2 - 30     cy2 = cy2 - 15
  87.     UseFont("Arial",7,17,BOLD,NOITALIC,NOUNDERLINE,255,255,255)
  88.     DrawTextExt(31,16,cx2,cy2,
  89. "Example of a multi-part status bar, showing various
  90. sized parts and text, in the default position at the
  91. bottom of the application client area. When the 
  92. window is resized, the status bar is automatically
  93. redrawn with the existing text.", LEFT)
  94.  
  95.     UseFont("Arial",7,17,BOLD,NOITALIC,NOUNDERLINE,0,0,0)
  96.     DrawTextExt(30,15,cx2,cy2,
  97. "Example of a multi-part status bar, showing various
  98. sized parts and text, in the default position at the
  99. bottom of the application client area. When the 
  100. window is resized, the status bar is automatically
  101. redrawn with the existing text.", LEFT)
  102.     DrawStatusWinText(0,"Part#0")
  103.     DrawStatusWinText(1,"Part#1")
  104.     DrawStatusWinText(2,"Part#2")
  105.     DrawStatusWinText(3,"Part#3")
  106.  
  107.     Return
  108.  
  109.  
  110.  
  111.